<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%
Response.ContentType="application/json"
Response.Charset = "UTF-8"
%>
<!--#include file="JSON_2.0.4.asp"-->
<!--#include file="FunctionList.asp"-->
<%
'该在线管理采用递归显示所有图片，最终造成一次性读取太多图片导致系统卡死。
'适合单目录文件夹多文件
Dim path,filetype,str
str = ""
path = "/UploadFiles/images/"
filetype = "gif,jpg,jpeg,png,bmp"
Dim action : action = htmlspecialchars(Request.Form("action"))
If action = "get" Then
	For Each file In fileAcceptList(path,filetype)
		str = str & file & "ue_separate_ue"
	Next
	Response.Clear()
	Response.Write(str)
	Response.End()
End If
%>